home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 16 / wp42b.zip / WP42B.DEF < prev    next >
Text File  |  1987-03-30  |  37KB  |  960 lines
  1. ;
  2. ;                  WordPerfect 4.1 pop-up mouse menus
  3. ;
  4.  
  5. ;  Set up initial labels for mouse commands
  6.  
  7.         begin leftb,rightb,bothb,mousel,mouser,mouseu,moused,24,32
  8.  
  9. ;       -------------------- Left Button ---------------------------
  10.  
  11.  
  12. leftb:  execute others                ;Bring up function key menu
  13.  
  14.  
  15. ;       -------------------- Right button ------------------------
  16.  
  17.  
  18. bothb:  execute printmenu
  19.  
  20. ;       --------------------- Both buttons ------------------------
  21.  
  22.  
  23. rightb: execute keyaltf4              ;block
  24.  
  25. ;       -------------------- Mouse left -----------------------
  26.  
  27. mousel: execute left                  ;cursor left
  28.  
  29. ;       ------------------- Mouse right -----------------------
  30.  
  31. mouser: execute right                 ;cursor right
  32.  
  33. ;       --------------------- Mouse up -----------------------
  34.  
  35. mouseu: execute up                    ;cursor up
  36.  
  37.  
  38. moused: execute down                  ;cursor down
  39.  
  40. ;       ---------------- Function Key Selection --------------------
  41. others: popup 1,1,normal
  42. ;     12345678911234567892123456789312345678941234567895123456789612345678971234567898
  43. ;              0         0         0         0         0         0         0         0
  44. text "                  CANCEL                "
  45. text "                             F2             Home, F2"
  46. text "   ╔═════════════════╤═════════════════╤══════════════════╗"
  47. text "   ║      Shell      │      Spell      │                  ║  Ctrl + Function Key"
  48. text " F1║ SUPER/SUBSCRIPT │    <-SEARCH     │EXTENDED <-SEARCH ║ SHIFT + Function Key"
  49. text "   ║    Thesaurus    │     Replace     │ Extended Replace ║   Alt + Function Key"
  50. text "   ║_____Cancel______│_____Search->__  │ Extended Search->║   Function Key Alone"
  51. text "   ║     Screen      │       Move      ╞══════════════════╝"
  52. text " F3║     SWITCH      │    ->INDENT<-   ║F4"
  53. text "   ║  Reveal Codes   │      Block      ║"
  54. text "   ║______Help_______│____->Indent_____║"
  55. text "   ║   Text In/Out   │    Tab Align    ║"
  56. text " F5║      DATE       │     CENTER      ║F6" 
  57. text "   ║    Mark Text    │   Flush Right   ║      ╔═ Cursor Movement ═══╗"
  58. text "   ║____List Files___│______Bold_______║      ║          │          ║"
  59. text "   ║    Footnote     │      Print      ║      ║  Go To   │ Page UP  ║"
  60. text " F7║      PRINT      │   LINE FORMAT   ║F8    ║          │          ║"
  61. text "   ║   Math/Columns  │   Page Format   ║      ║__________│__________║"
  62. text "   ║______Exit_______│____Underline____║      ║          │          ║"
  63. text "   ║   Merge/Sort    │    Macro Def.   ║      ║ Del EOLn │ Page Dn  ║"
  64. text " F9║     MERGE E     │  RETRIEVE TEXT  ║F10   ║ Del EOPg │          ║"
  65. text "   ║   Merge Codes   │      Macro      ║      ║          │          ║"
  66. text "   ║     Merge R     │    Save Text    ║      ╚══════════╧══════════╝"
  67. text "   ╚═════════════════╧═════════════════╝"
  68. ;     1234567891123456789212345678931234567894123456789512345678961234567897
  69. ;              0         0         0         0         0         0         0
  70.         select 1,4,37
  71.         select 4,5,17,shellmenu         ;Escape to DOS
  72.         select 5,5,17,subsmenu          ;Superscript/Subscript
  73.         select 6,5,17,keyaltf1          ;Thesaurus
  74.         select 7,5,17,keyf1             ;Cancel
  75.         select 8,5,17,scrnmenu          ;Screen
  76.         select 9,5,17,keyshf3           ;Switch
  77.         select 10,5,17,keyaltf3         ;Reveal codes
  78.         select 11,5,17,keyf3            ;help
  79.         select 12,5,17,textmenu         ;Text In/Out
  80.         select 13,5,17,datemenu         ;Date
  81.         select 14,5,17,markmatch        ;Mark Text
  82.         select 15,5,17,keyf5            ;List Files
  83.         select 16,5,17,footnote         ;Footnote
  84.         select 17,5,17,printmenu        ;Print
  85.         select 18,5,17,mathmatch        ;Math / Columns
  86.         select 19,5,17,keyf7            ;Exit
  87.         select 20,5,17,merge            ;Merge/Sort
  88.         select 21,5,17,keyshf9          ;Merge E
  89.         select 22,5,17,mergecmnu        ;Merge codes
  90.         select 23,5,17,keyf9            ;Merge R
  91.         select 4,23,17,keyctlf2         ;Spell
  92.         select 5,23,17,keyshf2          ;<-Search
  93.         select 6,23,17,keyaltf2         ;Replace
  94.         select 7,23,17,keyf2            ;->Search
  95.         select 8,23,17,movematch        ;Move
  96.         select 9,23,17,keyshf4          ;->Indent<-
  97.         select 10,23,17,keyaltf4        ;Block
  98.         select 11,23,17,keyf4           ;->Indent
  99.         select 12,23,17,keyctlf6        ;Tab Align
  100.         select 13,23,17,keyshf6         ;Center
  101.         select 14,23,17,keyaltf6        ;Flush Right
  102.         select 15,23,17,keyf6           ;Bold
  103.         select 16,23,17,keyctlf8        ;Print
  104.         select 17,23,17,linemenu        ;Line
  105.         select 18,23,17,pagematch       ;Page
  106.         select 19,23,17,keyf8           ;Underline
  107.         select 20,23,17,keyctlf10       ;Macro Def
  108.         select 21,23,17,keyshf10        ;Retrieve
  109.         select 22,23,17,keyaltf10       ;Macro
  110.         select 23,23,17,keyf10          ;Save
  111.         select 5,41,18,extsrchup        ;Extended <-Search
  112.         select 6,41,18,extreplace       ;Extended Replace
  113.         select 7,41,18,extsrchdwn       ;Extended Search->
  114.         select 16,49,8,goto             ;GOTO (CTRL HOME)
  115.         select 20,49,8,deleol           ;Delete to end of line
  116.         select 21,49,8,deleop           ;delete t end of page
  117.         select 16,59,9,pageup           ;scroll page up
  118.         select 20,59,9,pagedn           ;scroll page down
  119.         pend
  120. ;       ------------- SHELL - execute DOS (CTL F1) ---------------
  121. ;
  122. shellmenu: popup 25,1,bold
  123. ;     12345678911234567892123456789312345678941234567
  124. ;              0         0         0         0
  125. text " Execute DOS Shell:   CANCEL    Go to DOS"
  126.         select 1,23,6
  127.         select 1,33,9,shell
  128.         pend
  129. shell:  execute keyctlf1,key1
  130. ;
  131. ;       ---------------- MERGE CODES (ALT F9) ----------------------
  132. ;
  133. mergecmnu: popup 5,5,normal
  134. ;     12345678911234567892123456789312345678941234567
  135. ;              0         0         0         0
  136. text "   ╔═══ Merge Code Menu ══════════════════════╗"
  137. text "   ║                                          ║"
  138. text "   ║                CANCEL                    ║"
  139. text "   ║ ^C..Keyboard Input   ^P..Primary File    ║"
  140. text "   ║ ^D..Current Date     ^Q..Stop Merge      ║"
  141. text "   ║ ^E..End of Record    ^R..End of File     ║"
  142. text "   ║ ^F..Field Number     ^S..Secondary File  ║"
  143. text "   ║ ^G..Start Macro      ^T..Text to Printer ║"
  144. text "   ║ ^N..Next Record      ^U..Update Screen   ║"
  145. text "   ║ ^O..Message          ^V..Xfer Mrge Codes ║"
  146. text "   ║                                          ║"
  147. text "   ╚══════════════════════════════════════════╝"
  148.         select 3,6,40
  149.         select 4,6,18,mrgctlc
  150.         select 5,6,18,mrgctld
  151.         select 6,6,18,mrgctle
  152.         select 7,6,18,mrgctlf
  153.         select 8,6,18,mrgctlg
  154.         select 9,6,18,mrgctln
  155.         select 10,6,18,mrgctlo
  156.         select 4,27,19,mrgctlp
  157.         select 5,27,19,mrgctlq
  158.         select 6,27,19,mrgctlr
  159.         select 7,27,19,mrgctls
  160.         select 8,27,19,mrgctlt
  161.         select 9,27,19,mrgctlu
  162.         select 10,27,19,mrgctlv
  163.         pend
  164. mrgctlc: execute keyaltf9,keyc
  165. mrgctld: execute keyaltf9,keyd
  166. mrgctle: execute keyaltf9,keye
  167. mrgctlf: execute keyaltf9,keyf
  168. mrgctlg: execute keyaltf9,keyg
  169. mrgctln: execute keyaltf9,keyn
  170. mrgctlo: execute keyaltf9,keyo
  171. mrgctlp: execute keyaltf9,keyp
  172. mrgctlq: execute keyaltf9,keyq
  173. mrgctlr: execute keyaltf9,keyr
  174. mrgctls: execute keyaltf9,keys
  175. mrgctlt: execute keyaltf9,keyt
  176. mrgctlu: execute keyaltf9,keyu
  177. mrgctlv: execute keyaltf9,keyv
  178. ;
  179. ;       ------------- Print Menu (SHIFT F7) ----------------------
  180. ;
  181. printmenu: popup 5,5,normal
  182. ;     12345678911234567892123456789312345678941234567
  183. ;              0         0         0         0
  184. text "   ╔═══ Print Menu ═══════════════════════════╗"
  185. text "   ║                                          ║"
  186. text "   ║                 CANCEL                   ║"
  187. text "   ║                                          ║"
  188. text "   ║ Full Text            Printer Control     ║"
  189. text "   ║ Page                 Type Thru           ║"
  190. text "   ║ Change Options       Preview             ║"
  191. text "   ║                                          ║"
  192. text "   ╚══════════════════════════════════════════╝"
  193.         select 3,6,40
  194.         select 5,6,18,prtfulltext
  195.         select 6,6,18,prtpage
  196.         select 7,6,18,prtchngopts
  197.         select 5,27,19,prtcontrol
  198.         select 6,27,19,prttypethru
  199.         select 7,27,19,prtpreview
  200.         pend
  201. prtfulltext:  execute keyshf7,key1
  202. prtpage:      execute keyshf7,key2
  203. prtchngopts:  execute keyshf7,key3
  204. prtcontrol:   execute keyshf7,key4
  205. prttypethru:  execute keyshf7,key5
  206. prtpreview: popup 25,1,bold
  207. ;             123456789112345678921234567893123456789
  208. ;                      0         0         0         
  209.         text "Print preview: CANCEL   DOCUMENT   PAGE"
  210.         select 1,16,6
  211.         select 1,25,8,prtprevdoc
  212.         select 1,36,4,prtprevpage
  213.         pend
  214. prtprevdoc:  execute keyshf7,key6,key1
  215. prtprevpage: execute keyshf7,key6,key2
  216. ;
  217. ;       ---------  Document Conversion & Locking (CTL F5) --------
  218. ;
  219. ;     1234567891123456789212345678931234567894123456789512345678961
  220. ;              0         0         0         0         0         0
  221. textmenu:  popup 5,5,normal
  222. text "   ╔═══ Document Conversion and Locking ═════════════════════╗"
  223. text "   ║                                                         ║"
  224. text "   ║                        CANCEL                           ║"
  225. text "   ║                                                         ║"
  226. text "   ║ Save current document as DOS text file                  ║"
  227. text "   ║ Retrieve a DOS text file (CR/LF becomes [HRt]           ║"
  228. text "   ║ Retrieve a DOS text file (CR/LF in H-Zone becomes [SRt] ║"
  229. text "   ║ Lock and save current document                          ║"
  230. text "   ║ Unlock and retrieve a locked document                   ║"
  231. text "   ║ Save in a generic word processor format                 ║"
  232. text "   ║ Save in WordPerfect 4.1 format                          ║"
  233. text "   ║ Create/Edit Summary                                     ║"
  234. text "   ║ Create Comment                                          ║"
  235. text "   ║ Edit Comment                                            ║"
  236. text "   ║ Display Summary and Comments                            ║"
  237. text "   ║                                                         ║"
  238. text "   ╚═════════════════════════════════════════════════════════╝"
  239.         select 3,6,55
  240.         select 5,6,55,txtsave
  241.         select 6,6,55,txtreadhrt
  242.         select 7,6,55,txtreadsrt
  243.         select 8,6,55,txtlock
  244.         select 9,6,55,txtunlock
  245.         select 10,6,55,genericsave
  246.         select 11,6,55,wp41save
  247.         select 12,6,55,creatsummary
  248.         select 13,6,55,creatcomment
  249.         select 14,6,55,editcomment
  250.         select 15,6,55,dispsumcmnt
  251.         pend
  252. txtsave:      execute keyctlf5,key1
  253. txtreadhrt:   execute keyctlf5,key2
  254. txtreadsrt:   execute keyctlf5,key3
  255. txtlock:      execute keyctlf5,key4
  256. txtunlock:    execute keyctlf5,key5
  257. genericsave:  execute keyctlf5,key6
  258. wp41save:     execute keyctlf5,key7
  259. creatsummary: execute keyctlf5,keya
  260. creatcomment: execute keyctlf5,keyb
  261. editcomment:  execute keyctlf5,keyc
  262. dispsumcmnt:  execute keyctlf5,keyd
  263. ;
  264. ;       ---------  Super/Subscript (SHIFT F1) --------------------
  265. ;
  266. ;     12345678911234567892123456789312345678941234567
  267. ;              0         0         0         0
  268. subsmenu:  popup 5,5,normal
  269. text "   ╔═══ Super/Subscript ══════════════════════╗"
  270. text "   ║                                          ║"
  271. text "   ║                 CANCEL                   ║"
  272. text "   ║                                          ║"
  273. text "   ║ Superscript          Advance up          ║"
  274. text "   ║ Subscript            Advance down        ║"
  275. text "   ║ Overstrike           Advance line        ║"
  276. text "   ║                                          ║"
  277. text "   ╚══════════════════════════════════════════╝"
  278.         select 3,6,40
  279.         select 5,6,18,subsuper
  280.         select 6,6,18,subsubsc
  281.         select 7,6,18,subover
  282.         select 5,27,19,subadvup
  283.         select 6,27,19,subadvdn
  284.         select 6,27,19,subadvln
  285.         pend
  286. subsuper:   execute keyshf1,key1
  287. subsubsc:   execute keyshf1,key2
  288. subover:    execute keyshf1,key3
  289. subadvup:   execute keyshf1,key4
  290. subadvdn:   execute keyshf1,key5
  291. subadvln:   execute keyshf1,key6
  292. ;
  293. ;       ---------  Line Formatting (SHIFT F6) --------------------
  294. ;
  295. ;     12345678911234567892123456789312345678941234567
  296. ;              0         0         0         0
  297. linemenu:  popup 5,5,normal
  298. text "   ╔═══ Line Format Options ══════════════════╗"
  299. text "   ║                                          ║"
  300. text "   ║                 CANCEL                   ║"
  301. text "   ║                                          ║"
  302. text "   ║ Tabs                 Hyphenation         ║"
  303. text "   ║ Margins              Set align character ║"
  304. text "   ║ Spacing                                  ║"
  305. text "   ║                                          ║"
  306. text "   ╚══════════════════════════════════════════╝"
  307.         select 3,6,40
  308.         select 5,6,18,linetabs
  309.         select 6,6,18,linemargins
  310.         select 7,6,18,linespace
  311.         select 5,27,19,linehyphn
  312.         select 6,27,19,linealign
  313.         pend
  314. linetabs:    execute keyshf8,key1
  315. linemargins: execute keyshf8,key3
  316. linespace:   execute keyshf8,key4
  317. linehyphn:   execute keyshf8,key5
  318. linealign:   execute keyshf8,key6
  319. ;
  320.  
  321. ;       ---------  Page Formatting (ALT F6) --------------------
  322. ;
  323. ;  Check for "Block on" in lower left of screen.  If Typeover mode is
  324. ;  on, the block literal will be shifted to column 11.
  325. ;
  326. pagematch:   match 25,1,,"Block on",keyaltf8,pagematch2
  327. pagematch2:  match 25,11,,"Block on",keyaltf8,pagemenu
  328. ;
  329. ;
  330. ;     12345678911234567892123456789312345
  331. ;              0         0         0         0
  332. pagemenu:  popup 5,5,normal
  333. text "   ╔═══ Page Format Options ═════╗"
  334. text "   ║                             ║"
  335. text "   ║ CANCEL                      ║"
  336. text "   ║                             ║"
  337. text "   ║ Page Number Position        ║"
  338. text "   ║ New Page Number             ║"
  339. text "   ║ Center Top to Bottom        ║"
  340. text "   ║ Page Length                 ║"
  341. text "   ║ Top Margin                  ║"
  342. text "   ║ Headers or Footers          ║"
  343. text "   ║ Page Number Column Position ║"
  344. text "   ║ Suppress for Current Page   ║"
  345. text "   ║ Conditional End of Page     ║"
  346. text "   ║ Widow/Orphan                ║"
  347. text "   ║                             ║"
  348. text "   ╚═════════════════════════════╝"
  349.         select 3,6,27
  350.         select 5,6,27,pagepos
  351.         select 6,6,27,pagenum
  352.         select 7,6,27,pagecenter
  353.         select 8,6,27,pagelen
  354.         select 9,6,27,pagetopmrg
  355.         select 10,6,27,pagehdrs
  356.         select 11,6,27,pagenumcp
  357.         select 12,6,27,pagesuppr
  358.         select 13,6,27,pageeop
  359.         select 14,6,27,pagewidow
  360.         pend
  361. pagenum:    execute keyaltf8,key2
  362. pagecenter: execute keyaltf8,key3
  363. pagetopmrg: execute keyaltf8,key5
  364. pagehdrs:   execute keyaltf8,key6
  365. pagenumcp:  execute keyaltf8,key7
  366. pagesuppr:  execute keyaltf8,key8
  367. pageeop:    execute keyaltf8,key9
  368. pagewidow:  execute keyaltf8,keya
  369. ;
  370. ;       ---------  Option 1 of Page formatting  --------------------
  371. ;
  372. ;     1234567891123456789212345678931234567
  373. ;              0         0         0         0
  374. pagepos:    popup 5,5,normal
  375. text "   ╔═══ Page Number Positioning ═══╗"
  376. text "   ║                               ║"
  377. text "   ║ CANCEL                        ║"
  378. text "   ║                               ║"
  379. text "   ║ No Page Numbers               ║"
  380. text "   ║ Top left of every page        ║"
  381. text "   ║ Top center of every page      ║"
  382. text "   ║ Top right of every page       ║"
  383. text "   ║ Top alternating left & right  ║"
  384. text "   ║ Bot. left of every page       ║"
  385. text "   ║ Bot. center of every page     ║"
  386. text "   ║ Bot. right of every page      ║"
  387. text "   ║ Bot. alternating left & right ║"
  388. text "   ║                               ║"
  389. text "   ╚═══════════════════════════════╝"
  390.         select 3,6,29
  391.         select 5,6,29,pgnumnone
  392.         select 6,6,29,pgnumtl
  393.         select 7,6,29,pgnumtc
  394.         select 8,6,29,pgnumtr
  395.         select 9,6,29,pgnumtlr
  396.         select 10,6,29,pgnumbl
  397.         select 11,6,29,pgnumbc
  398.         select 12,6,29,pgnumbr
  399.         select 13,6,29,pgnumblr
  400.         pend
  401. pgnumnone:   execute keyaltf8,key1,key0,key0
  402. pgnumtl:     execute keyaltf8,key1,key1,key0
  403. pgnumtc:     execute keyaltf8,key1,key2,key0
  404. pgnumtr:     execute keyaltf8,key1,key3,key0
  405. pgnumtlr:    execute keyaltf8,key1,key4,key0
  406. pgnumbl:     execute keyaltf8,key1,key5,key0
  407. pgnumbc:     execute keyaltf8,key1,key6,key0
  408. pgnumbr:     execute keyaltf8,key1,key7,key0
  409. pgnumblr:    execute keyaltf8,key1,key8,key0
  410. ;
  411. ;       ---------  Option 4 of Page formatting  --------------------
  412. ;
  413. ;     123456789112345678921234567893123456
  414. ;              0         0         0         0
  415. pagelen:    popup 5,5,normal
  416. text "   ╔═══ Page Length ═══════════════╗"
  417. text "   ║                               ║"
  418. text "   ║ CANCEL                        ║"
  419. text "   ║                               ║"
  420. text "   ║ Letter: 66 lines @ 54 / page  ║"
  421. text "   ║ Legal:  84 lines @ 72 / page  ║"
  422. text "   ║ Other                         ║"
  423. text "   ║  (Other drops out of mouse    ║"
  424. text "   ║    data entry mode)           ║"
  425. text "   ╚═══════════════════════════════╝"
  426.         select 3,6,29
  427.         select 5,6,29,pglenlet
  428.         select 6,6,29,pglenleg
  429.         select 7,6,29,pglenoth
  430.         pend
  431. pglenlet:    execute keyaltf8,key4,key1,key0
  432. pglenleg:    execute keyaltf8,key4,key2,key0
  433. pglenoth:    execute keyaltf8,key4,key3
  434. ;
  435. ;       ---------  Move Menus  (CTL F4)  -------------
  436. ;
  437. ;  Check for "Block on" in lower left of screen.  If Typeover mode is
  438. ;  on, the block literal will be shifted to column 11.
  439. ;
  440. movematch:   match 25,1,,"Block on",moveblk,movematch2
  441. movematch2:  match 25,11,,"Block on",moveblk,movetxt
  442. ;
  443. ;       ---------  Move Blocks (when "Block on" is in lower left -----
  444. ;
  445. moveblk:  popup 5,5,normal
  446. ;     12345678911234567892123456789312345678941234567
  447. ;              0         0         0         0
  448. text "   ╔═══ Move Block Options ═══════════════════╗"
  449. text "   ║                                          ║"
  450. text "   ║                 CANCEL                   ║"
  451. text "   ║                                          ║"
  452. text "   ║ Cut Block            Cut/Copy Column     ║"
  453. text "   ║ Copy Block           Cut/Copy Rectangle  ║"
  454. text "   ║ Append                                   ║"
  455. text "   ║                                          ║"
  456. text "   ╚══════════════════════════════════════════╝"
  457.         select 3,6,40
  458.         select 5,6,18,blkcut
  459.         select 6,6,18,blkcopy
  460.         select 7,6,18,blkapnd
  461.         select 5,27,19,blkcccol
  462.         select 6,27,19,blkccrect
  463.         pend
  464. blkcut:    execute keyctlf4,key1
  465. blkcopy:   execute keyctlf4,key2
  466. blkapnd:   execute keyctlf4,key3
  467. blkcccol: popup 25,1,bold
  468. ;             12345678911234567892123456789312345678941234567895
  469. ;                      0         0         0         0         0
  470.         text "Block cut/copy column: CANCEL   CUT   COPY  DELETE"
  471.         select 1,24,6
  472.         select 1,33,3,blkcc1
  473.         select 1,39,4,blkcc2
  474.         select 1,45,6,blkcc3
  475.         pend
  476. blkcc1:  execute keyctlf4,key4,key1
  477. blkcc2:  execute keyctlf4,key4,key2
  478. blkcc3:  execute keyctlf4,key4,key3
  479. blkccrect: popup 25,1,bold
  480. ;             12345678911234567892123456789312345678941234567895123
  481. ;                      0         0         0         0         0
  482.         text "Block cut/copy rectangle: CANCEL   CUT   COPY  DELETE"
  483.         select 1,27,6
  484.         select 1,36,3,blkcc4
  485.         select 1,42,4,blkcc5
  486.         select 1,48,6,blkcc6
  487.         pend
  488. blkcc4:  execute keyctlf4,key5,key1
  489. blkcc5:  execute keyctlf4,key5,key2
  490. blkcc6:  execute keyctlf4,key5,key3
  491. ;
  492. ;  ---------  Move Text (when "Block on" is not in lower left -----
  493. ;
  494. movetxt:  popup 5,5,normal
  495. ;     12345678911234567892123456789312345678
  496. ;              0         0         0
  497. text "   ╔═══ Move Options ═══════════════╗"
  498. text "   ║                                ║"
  499. text "   ║             CANCEL             ║"
  500. text "   ║                                ║"
  501. text "   ║    MOVE            RETRIEVE    ║"
  502. text "   ║ ----------       -----------   ║"
  503. text "   ║ Sentence         Column        ║"
  504. text "   ║ Paragraph        Text          ║"
  505. text "   ║ Page             Rectangle     ║"
  506. text "   ║                                ║"
  507. text "   ╚════════════════════════════════╝"
  508.         select 3,6,29
  509.         select 7,6,12,mvtxtsent
  510.         select 8,6,12,mvtxtpara
  511.         select 9,6,12,mvtxtpage
  512.         select 7,23,12,mvtxtrcol
  513.         select 8,23,12,mvtxtrtext
  514.         select 9,23,12,mvtxtrrect
  515.         pend
  516. mvtxtrcol:  execute keyctlf4,key4
  517. mvtxtrtext: execute keyctlf4,key5
  518. mvtxtrrect: execute keyctlf4,key6
  519. ;
  520. mvtxtsent: popup 25,1,bold
  521. ;             12345678911234567892123456789312345678941234567
  522. ;                      0         0         0         0       
  523.         text "Move text sentence: CANCEL   CUT   COPY  DELETE"
  524.         select 1,21,6
  525.         select 1,30,3,movsent1
  526.         select 1,36,4,movsent2
  527.         select 1,42,6,movsent3
  528.         pend
  529. movsent1: execute keyctlf4,key1,key1
  530. movsent2: execute keyctlf4,key1,key2
  531. movsent3: execute keyctlf4,key1,key3
  532. ;
  533. mvtxtpara: popup 25,1,bold
  534. ;             123456789112345678921234567893123456789412345678
  535. ;                      0         0         0         0       
  536.         text "Move text paragraph: CANCEL   CUT   COPY  DELETE"
  537.         select 1,22,6
  538.         select 1,31,3,movpara1
  539.         select 1,37,4,movpara2
  540.         select 1,43,6,movpara3
  541.         pend
  542. movpara1: execute keyctlf4,key2,key1
  543. movpara2: execute keyctlf4,key2,key2
  544. movpara3: execute keyctlf4,key2,key3
  545. ;
  546. mvtxtpage: popup 25,1,bold
  547. ;             1234567891123456789212345678931234567894123
  548. ;                      0         0         0         0       
  549.         text "Move text page: CANCEL   CUT   COPY  DELETE"
  550.         select 1,17,6
  551.         select 1,26,3,movpage1
  552.         select 1,32,4,movpage2
  553.         select 1,38,6,movpage3
  554.         pend
  555. movpage1: execute keyctlf4,key3,key1
  556. movpage2: execute keyctlf4,key3,key2
  557. movpage3: execute keyctlf4,key3,key3
  558. ;
  559. ;       ------------- Screen Menu (CTL F2) ---------------------
  560. ;
  561. scrnmenu: popup 5,5,normal
  562. ;     12345678911234567892123456789312345678941234567
  563. ;              0         0         0         0
  564. text "   ╔═══ Screen  Menu ═════════════════════════╗"
  565. text "   ║                                          ║"
  566. text "   ║                 CANCEL                   ║"
  567. text "   ║                                          ║"
  568. text "   ║ Rewrite              CTL/ALT Keys        ║"
  569. text "   ║ Window               Colors              ║"
  570. text "   ║ Line Draw            Auto Rewrite        ║"
  571. text "   ║                                          ║"
  572. text "   ╚══════════════════════════════════════════╝"
  573.         select 3,6,40
  574.         select 5,6,18,scrnrewrite
  575.         select 6,6,18,scrnwind
  576.         select 7,6,18,scrnline
  577.         select 5,27,19,scrnctlalt
  578.         select 6,27,19,scrncolors
  579.         select 7,27,19,scrnautorw
  580.         pend
  581. scrnrewrite: execute keyctlf3,key0
  582. scrnwind:    execute keyctlf3,key1
  583. scrnline:    execute keyctlf3,key2
  584. scrnctlalt:  execute keyctlf3,key3
  585. scrncolors:  execute keyctlf3,key4
  586. scrnautorw:  execute keyctlf3,key5
  587. ;
  588. ;       ------------- Footnotes (CTL F7) -----------------------
  589. ;
  590. footnote: popup 5,5,normal
  591. ;     12345678911234567892123456789312345678941234567
  592. ;              0         0         0         0
  593. text "   ╔═══ Footnote ═════════════════════════════╗"
  594. text "   ║                                          ║"
  595. text "   ║                 CANCEL                   ║"
  596. text "   ║                                          ║"
  597. text "   ║ Create               Options             ║"
  598. text "   ║ Edit                 Create Endnote      ║"
  599. text "   ║ New number           Edit Endnote        ║"
  600. text "   ║                                          ║"
  601. text "   ╚══════════════════════════════════════════╝"
  602.         select 3,6,40
  603.         select 5,6,18,footcreate
  604.         select 6,6,18,footedit
  605.         select 7,6,18,footnew
  606.         select 5,27,19,footoption
  607.         select 6,27,19,footend
  608.         select 7,27,19,footendedit
  609.         pend
  610. footcreate:   execute keyctlf7,key1
  611. footedit:     execute keyctlf7,key2
  612. footnew:      execute keyctlf7,key3
  613. footoption:   execute keyctlf7,key4
  614. footend:      execute keyctlf7,key5
  615. footendedit:  execute keyctlf7,key6
  616. ;
  617. ;       ------------- Merge Menu (CTL F9) ----------------------
  618. ;
  619. merge: popup 5,5,normal
  620. ;     1234567891123456789212345678
  621. ;              0         0
  622. text "   ╔═ Merge/Sort Options ═╗"
  623. text "   ║                      ║"
  624. text "   ║ CANCEL               ║"
  625. text "   ║                      ║"
  626. text "   ║ Merge                ║"
  627. text "   ║ Sort                 ║"
  628. text "   ║ Sorting Sequences    ║"
  629. text "   ║                      ║"
  630. text "   ╚══════════════════════╝"
  631.         select 3,6,18
  632.         select 5,6,18,mrgmerge
  633.         select 6,6,18,mrgsort
  634.         select 7,6,18,mrgseq
  635.         pend
  636. mrgmerge:     execute keyctlf9,key1
  637. mrgsort:      execute keyctlf9,key2
  638. mrgseq:       execute keyctlf9,key3
  639. ;
  640. ;       ------------- Merge Menu (CTL F9) ----------------------
  641. ;
  642. datemenu: popup 25,1,normal
  643. ;     1234567891123456789212345678931234567894123456789512345678961234567897123456
  644. ;              0         0         0         0         0         0
  645. text "Dates: CANCEL    Ins. Date as Text    Ins. Date Function    Chg. Date Format"
  646.         select 1,8,6
  647.         select 1,18,17,dattext
  648.         select 1,39,18,datfunc
  649.         select 1,61,16,datform
  650.         pend
  651. dattext:     execute keyshf5,key1
  652. datform:     execute keyshf5,key2
  653. datfunc:     execute keyshf5,key3
  654. ;
  655. ;       ------------- Math/Columns (ALT F7) --------------------
  656. ;
  657. ;   Check for "Math" in lower left of screen.  If Typeover mode is on,
  658. ;   the "Math" literal will be shifted to column 11.
  659. ;
  660. mathmatch:  match 25,1,,"Math",mathonmenu,mathmatch1
  661. mathmatch1: match 25,11,,"Math",mathonmenu,mathoffmenu
  662. ;
  663. ;       ------------- Math/Columns (ALT F7) (MATH OFF)----------
  664. ;
  665. mathoffmenu: popup 5,5,normal
  666. ;     1234567891123456789212345678
  667. ;              0         0
  668. text "   ╔═ Math/Columns ════╗"
  669. text "   ║                   ║"
  670. text "   ║ CANCEL            ║"
  671. text "   ║                   ║"
  672. text "   ║ Math On           ║"
  673. text "   ║ Math Definition   ║"
  674. text "   ║ Column On/Off     ║"
  675. text "   ║ Column Definition ║"
  676. text "   ║ Column Display    ║"
  677. text "   ║                   ║"
  678. text "   ╚═══════════════════╝"
  679.         select 3,6,17
  680.         select 5,6,17,mathon
  681.         select 6,6,17,mathdef
  682.         select 7,6,17,colmon1
  683.         select 8,6,17,colmdef1
  684.         select 9,6,17,colmdsp1
  685.         pend
  686. mathon:      execute keyaltf7,key1
  687. mathdef:     execute keyaltf7,key2
  688. colmon1:     execute keyaltf7,key3
  689. colmdef1:    execute keyaltf7,key4
  690. colmdsp1:    execute keyaltf7,key5
  691. ;
  692. ;       ------------- Math/Columns (ALT F7) (MATH ON)-----------
  693. ;
  694. mathonmenu: popup 5,5,normal
  695. ;     1234567891123456789212345678
  696. ;              0         0
  697. text "   ╔═ Math/Columns ════╗"
  698. text "   ║                   ║"
  699. text "   ║ CANCEL            ║"
  700. text "   ║                   ║"
  701. text "   ║ Math Off          ║"
  702. text "   ║ Calculate         ║"
  703. text "   ║ Column On/Off     ║"
  704. text "   ║ Column Definition ║"
  705. text "   ║ Column Display    ║"
  706. text "   ║                   ║"
  707. text "   ╚═══════════════════╝"
  708.         select 3,6,17
  709.         select 5,6,17,mathoff
  710.         select 6,6,17,mathcalc
  711.         select 7,6,17,colmon2
  712.         select 8,6,17,colmdef2
  713.         select 9,6,17,colmdsp2
  714.         pend
  715. mathoff:     execute keyaltf7,key1
  716. mathcalc:    execute keyaltf7,key2
  717. colmon2:     execute keyaltf7,key3
  718. colmdef2:    execute keyaltf7,key4
  719. colmdsp2:    execute keyaltf7,key5
  720. ;
  721. ;
  722. ;       ------------- Mark Text (ALT F5) -----------------------
  723. ;
  724. ;
  725. ;  Check for "Block on" in lower left of screen.  If Typeover mode is
  726. ;  on, the block literal will be shifted to column 11.
  727. ;
  728. markmatch:   match 25,1,,"Block on",markblk,markmatch2
  729. markmatch2:  match 25,11,,"Block on",markblk,markmenu
  730. ;
  731. markblk: popup 5,5,normal
  732. ;     12345678911234567892123456789312345678941234567
  733. ;              0         0         0         0
  734. text "   ╔═══ Mark Block for ════════════════════════╗"
  735. text "   ║                                           ║"
  736. text "   ║                 CANCEL                    ║"
  737. text "   ║                                           ║"
  738. text "   ║ Table of contents    Strikeout            ║"
  739. text "   ║ List                 Index                ║"
  740. text "   ║ Redline              Table of Authorities ║"
  741. text "   ║                                           ║"
  742. text "   ╚═══════════════════════════════════════════╝"
  743.         select 3,6,41
  744.         select 5,6,18,markblktoc
  745.         select 6,6,18,markblklist
  746.         select 7,6,18,markblkredline
  747.         select 5,27,20,markblkstrikeout
  748.         select 6,27,20,markblkindex
  749.         select 7,27,20,markblktoa  
  750.         pend
  751. markblktoc:       execute keyaltf5,key1
  752. markblklist:      execute keyaltf5,key2
  753. markblkredline:   execute keyaltf5,key3
  754. markblkstrikeout: execute keyaltf5,key4
  755. markblkindex:     execute keyaltf5,key5
  756. markblktoa:       execute keyaltf5,key6
  757. ;
  758. markmenu: popup 5,5,normal
  759. ;     12345678911234567892123456789312345678941234567
  760. ;              0         0         0         0
  761. text "   ╔═══ Mark Text Options ════════════════════╗"
  762. text "   ║                                          ║"
  763. text "   ║                 CANCEL                   ║"
  764. text "   ║                                          ║"
  765. text "   ║ Outline              Short form          ║"
  766. text "   ║ Paragraph number     Index               ║"
  767. text "   ║ Redline              Other Options       ║"
  768. text "   ║                                          ║"
  769. text "   ╚══════════════════════════════════════════╝"
  770.         select 3,6,40
  771.         select 5,6,18,markoutline
  772.         select 6,6,18,markpara
  773.         select 7,6,18,markredline
  774.         select 5,27,19,markshortfrm
  775.         select 6,27,19,markindex
  776.         select 7,27,19,markothomenu
  777.         pend
  778. markoutline:  execute keyaltf5,key1
  779. markpara:     execute keyaltf5,key2
  780. markredline:  execute keyaltf5,key3
  781. markshortfrm:   execute keyaltf5,key4
  782. markindex:    execute keyaltf5,key5
  783. ;
  784. ;       ---------  Mark Text Other Options (ALT F5, 5) -----------
  785. ;
  786. ;     1234567891123456789212345678931234567894123456789512345678961
  787. ;              0         0         0         0         0         0
  788. markothomenu:  popup 5,5,normal
  789. text "   ╔═══ Mark Text Other Options ═════════════════════════════╗"
  790. text "   ║                                                         ║"
  791. text "   ║                        CANCEL                           ║"
  792. text "   ║                                                         ║"
  793. text "   ║ Define paragraph/outline numbering                      ║"
  794. text "   ║ Define table of contents                                ║"
  795. text "   ║ Define list                                             ║"
  796. text "   ║ Define table of authorities                             ║"
  797. text "   ║ Define index                                            ║"
  798. text "   ║ Remove all redline markings and strikeout text          ║"
  799. text "   ║ Edit table of authorities full form                     ║"
  800. text "   ║ Generate tables and index                               ║"
  801. text "   ║                                                         ║"
  802. text "   ╚═════════════════════════════════════════════════════════╝"
  803.         select 3,6,55
  804.         select 5,6,55,markothdnumb
  805.         select 6,6,55,markothdtoc
  806.         select 7,6,55,markothdlist
  807.         select 8,6,55,markothdtoa
  808.         select 9,6,55,markothdndx
  809.         select 10,6,55,markothrmov
  810.         select 11,6,55,markothedit
  811.         select 12,6,55,markothgen
  812.         pend
  813. markothdnumb: execute keyaltf5,key6,key1
  814. markothdtoc:  execute keyaltf5,key6,key2
  815. markothdlist: execute keyaltf5,key6,key3
  816. markothdtoa:  execute keyaltf5,key6,key4
  817. markothdndx:  execute keyaltf5,key6,key5
  818. markothrmov:  execute keyaltf5,key6,key6
  819. markothedit:  execute keyaltf5,key6,key7
  820. markothgen:   execute keyaltf5,key6,keya
  821. ;
  822. ;       ------------- Extended searches and replace ------------
  823. ;
  824. extsrchup:  execute keyhome,keyshf2     ;Extended <-Search
  825. extreplace: execute keyhome,keyaltf2    ;Extended Replace
  826. extsrchdwn: execute keyhome,keyf2       ;Extended Search->
  827. ;
  828. ;       ------------- Cursor movement keys  --------------------
  829. ;
  830. goto:   execute keyctlhome
  831. deleop: execute keyctlpgdn               ;delete to end of page
  832. pageup: execute keypgup                  ;scroll page up
  833. pagedn: execute keypgdn                  ;scroll page down
  834. deleol: popup 25,1,bold
  835. ;             123456789112345678921234567893123456789412345678951234
  836. ;                      0         0         0         0         0
  837.         text "Verify delete of text to end of line: CANCEL   DELETE"
  838.         select 1,39,6
  839.         select 1,48,6,keyctlend
  840.         pend
  841. ;
  842. ;
  843. ;       ------------- Keystroke definintions -------------------
  844. ;
  845. key0:          type "0"
  846. key1:          type "1"
  847. key2:          type "2"
  848. key3:          type "3"
  849. key4:          type "4"
  850. key5:          type "5"
  851. key6:          type "6"
  852. key7:          type "7"
  853. key8:          type "8"
  854. key9:          type "9"
  855. keya:          type "A"
  856. keyb:          type "B"
  857. keyc:          type "C"
  858. keyd:          type "D"
  859. keye:          type "E"
  860. keyf:          type "F"
  861. keyg:          type "G"
  862. keyh:          type "H"
  863. keyi:          type "I"
  864. keyj:          type "J"
  865. keyk:          type "K"
  866. keyl:          type "L"
  867. keym:          type "M"
  868. keyn:          type "N"
  869. keyo:          type "O"
  870. keyp:          type "P"
  871. keyq:          type "Q"
  872. keyr:          type "R"
  873. keys:          type "S"
  874. keyt:          type "T"
  875. keyu:          type "U"
  876. keyv:          type "V"
  877. keyw:          type "W"
  878. keyx:          type "X"
  879. keyy:          type "Y"
  880. keyz:          type "Z"
  881. keyctla:       type 1
  882. keyctlb:       type 2
  883. keyctlc:       type 3
  884. keyctld:       type 4
  885. keyctle:       type 5
  886. keyctlf:       type 6
  887. keyctlg:       type 7
  888. keyctlh:       type 8
  889. keyctli:       type 9
  890. keyctlj:       type 10
  891. keyctlk:       type 11
  892. keyctll:       type 12
  893. keyctlm:       type 13
  894. keyctln:       type 14
  895. keyctlo:       type 15
  896. keyctlp:       type 16
  897. keyctlq:       type 17
  898. keyctlr:       type 18
  899. keyctls:       type 19
  900. keyctlt:       type 20
  901. keyctlu:       type 21
  902. keyctlv:       type 22
  903. keyctlw:       type 23
  904. keyctlx:       type 24
  905. keyctly:       type 25
  906. keyctlz:       type 26
  907. keyhome:       type 0,71
  908. keyctlhome:    type 0,119
  909. keyctlend:     type 0,117
  910. keyctlpgdn:    type 0,118
  911. nothing:       nothing
  912. left:          type 0,75
  913. right:         type 0,77
  914. up:            type 0,72
  915. down:          type 0,80
  916. keypgup:       type 0,73
  917. keypgdn:       type 0,81
  918. keyf1:         type 0,59
  919. keyf2:         type 0,60
  920. keyf3:         type 0,61
  921. keyf4:         type 0,62
  922. keyf5:         type 0,63
  923. keyf6:         type 0,64
  924. keyf7:         type 0,65
  925. keyf8:         type 0,66
  926. keyf9:         type 0,67
  927. keyf10:        type 0,68
  928. keyaltf1:      type 0,104
  929. keyaltf2:      type 0,105
  930. keyaltf3:      type 0,106
  931. keyaltf4:      type 0,107
  932. keyaltf5:      type 0,108
  933. keyaltf6:      type 0,109
  934. keyaltf7:      type 0,110
  935. keyaltf8:      type 0,111
  936. keyaltf9:      type 0,112
  937. keyaltf10:     type 0,113
  938. keyshf1:       type 0,84
  939. keyshf2:       type 0,85
  940. keyshf3:       type 0,86
  941. keyshf4:       type 0,87
  942. keyshf5:       type 0,88
  943. keyshf6:       type 0,89
  944. keyshf7:       type 0,90
  945. keyshf8:       type 0,91
  946. keyshf9:       type 0,92
  947. keyshf10:      type 0,93
  948. keyctlf1:      type 0,94
  949. keyctlf2:      type 0,95
  950. keyctlf3:      type 0,96
  951. keyctlf4:      type 0,97
  952. keyctlf5:      type 0,98
  953. keyctlf6:      type 0,99
  954. keyctlf7:      type 0,100
  955. keyctlf8:      type 0,101
  956. keyctlf9:      type 0,102
  957. keyctlf10:     type 0,103
  958. return:        type enter
  959. ; The end
  960.